﻿Imports DevExpress.XtraSplashScreen

Public Class TonKho
    Private Sub TonKho_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SplashScreenManager.ShowForm(GetType(WaitForm1))
        Me.TuNgayIDateEdit.EditValue = getNgayDauThang(Today)
        Me.DenNgayIDateEdit.EditValue = getNgayCuoiThang(Today)
        'kiểm tra có đầu kỳ chưa
        If Me.TCTonKhoTableAdapter.getTCTonKho_isTonTai_DauKy(getRecycleId(CDate(Me.TuNgayIDateEdit.EditValue))) = 0 Then
            TCTonKhoTableAdapter.setTCTonKho_LayDauKy(CDate(Me.TuNgayIDateEdit.EditValue))
        End If
        Me.GetTCTonKho_TonKhoTheoLo_HanDungTableAdapter.Fill(Me.PCV_CLINICDataSetTongHop.getTCTonKho_TonKhoTheoLo_HanDung, CDate(Me.TuNgayIDateEdit.EditValue), CDate(Me.DenNgayIDateEdit.EditValue))
        Me.setHeaderFooter("Công Ty CP Tư Vấn Giải Pháp ERP Phong Cách Việt", "Lâm Văn Bền, P.Tân Kiểng, Q.7, TP.HCM")
        SplashScreenManager.CloseForm()
    End Sub
    Private Shadows Sub BarButtonItemLamTuoi_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemLamTuoi.ItemClick
        Me.GetTCTonKho_TonKhoTheoLo_HanDungTableAdapter.Fill(Me.PCV_CLINICDataSetTongHop.getTCTonKho_TonKhoTheoLo_HanDung, CDate(Me.TuNgayIDateEdit.EditValue), CDate(Me.DenNgayIDateEdit.EditValue))
    End Sub

    Private Shadows Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick

    End Sub
End Class
